home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh94a.d64
/
turtle-demo 4
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
520b
|
27 lines
1 REM TURTLE-DEMO: 'ALLEE'
2 REM N. HEUSLER 11.91
3 :
10 SYS49152
30 !GRAPHICS:!INIT
40 LA=6
45 BG=4.5:REM GROESSE DER BAEUME
50 DI=3:REM ABSTAND DER BAEUME
55 !PEN0:!MOVE100,198:!PEN1
60 GOSUB100
70 POKE198,.:WAIT198,1:POKE198,.
80 END
100 IFLA=0THENRETURN
110 LB=LA:GOSUB200
120 !PEN0:!TURNR45:!WALKBG*DI*LA:!TURNL45:!PEN1
130 !PUSHLA:LA=LA-1:GOSUB100:!PULLLA
140 RETURN
200 IFLB=0THENRETURN
210 !TURNL25:!WALKBG*LB
220 !PUSHLB:LB=LB-1:GOSUB200:!PULLLB
230 !BACKBG*LB:!TURNR50
240 !WALKBG*LB
250 !PUSHLB:LB=LB-1:GOSUB200:!PULLLB
260 !BACKBG*LB
270 !TURNL25
280 RETURN